with Ada.Text_Io;
with Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;
use Ada.Text_Io;
with Fakt;
with Lnko;
with Fakt_Rek;

procedure F1 is
   type Matrix is array (Integer range <>, Integer range <>) of Integer;
   tomb : Matrix(1..2,1..2);
begin
   for I in Tomb'range(1) loop
      for J in Tomb'range(2) loop
            Tomb(I,J):=I+J;
         end loop;
   end loop;
   for I in Tomb'range(1) loop
      for J in Tomb'range(2) loop
         Put(Tomb(I,J));
      end loop;
   end loop;
end F1;